DDDDDDDDDDDD 
DDDDDDDDDDDD 
ee 


DDDDDDDDDDDD 
DDDDDDDDDDDD 
DDDDDDDDDDDD 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ABA AAS 
AAA AKA 
AAA AMA 
AAA AMA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA ABA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA BAA 
AAA AAR 
AAA AAA 


I 
] 
] 
1 
I 
] 
I 
I 
] 
I 
I 
I 
] 
u 
U 


) 
LY) 
) 
D 
0) 
D 
D 
D 
D 
D 
D 
D 
D 
D 
) 
DU 
DL 
DL 
DL 
DL 


| a> J 


M15 


**F ILE**1D**PARSE 


eure) wus 
usu wud 
wu wud ud 
udu wud wu 
wu wus pewaee) 
udu wus usu 
uu uu wus 
wu wu Ww 


dd as a ss 
sd 


222222 


PPPPPPPP 


PP 
PP 
PP 
PP 


PPPPPPPP 
PPPPPPPP 
PPPPPPPP 


LLELLLLLLLL 
LLLLLLLLLL 


N 15 

PARSE Parse tables for SDA commands 16-SEP-1984 01:36:01 VAX/VMS Macro v04-00 Page 0 
Table of contents 

(1) g COPYRIGHT NOTICE 

(1) ; PROGRAM DESCRIPTION 

(3 107 DECLARATIONS 

(3) 118 TA STORAGE 

(4) 134 PARSER STATE TABLE 

(5) 991 SION ANALYSIS ACTION ROUTINES 

(6) 1094 STORE_RELOCATION, STORE READ/RELOCATE VALUE 

(6) 1114 TORE _PROC_INDEX, STORE PROCESS INDEX LOW BITS 

(7) 1137 AVE_COMMAND, SAVE THE CURRENT COMMAND 

(8) 1172 REPEAT_COMMAND REPEAT THE PREVIOUS COMMAND 

(9) 1194 DEFINE-KEY = DEFINE KEY 

(10) 1214 Action Routines for SET!SHOW RMS/DISPLAY=optionspec 


—_—— a ee ee! A 2 EE ee OS a ae ON ee ee ee ee Nee 


| B 16 
PARS Parse tables for SDA commands 16-SEP-1984 7:36:01 VAX/VMS Macro v04-0 Pa 
Y04 2500 g- SEP=1 1382 85: 39:9) SDA. SRCIJPARSE .MAR; <f 


~TITLE PARSE Parse tables for SDA commands 
“SOTTt Pony ASHT NOTICE 
 1DEN v04-000' 


~MARBRBARAAAAAAASAALELASAALARAALA SALAS E LASER EAA REARS ARRAS RRA RSE RRA SRA R ARRAS ESS | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS ceri anee UNDER A LICENSE AND MAY BE USED AND sore 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
RO EER Penton MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


a 
& 
e 
ow 
* 
ae 
a 
@ 
e 
® 
TRANSFERRED. “ 
* 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
CORPORATION. » 

7 

@ 

e 

a 

* 

J 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


NOUS WN — OOONO NEW O OONOU SE wr 
eeeeeeeeeneeeeeenenee 
Oo 
= 
m 
= 
i=] 
z 
Be 
z 
Oo 
~ 
— 
_" 
al 
mm 
~ 
Oo 
o 
oOo 
<= 
= 
mm 
>») 
ww 
x= 
~ 
v 
Oo 
~“D 
~ 
= 
mn 
nw 
oO 
mal 
~ 
< 
b> 
xz 
nm 
~ 
nm 
= 
m 
z@ 
Mm 
@ 
= 


=MARBRAARARAAASLASASLAREALEALESRE RAE ERE RRR SERRE RR RRR RR RRR RR RA RRR ERASER ARRAS SO 


| 
0 
0 
0 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


SOOCOCCOOCSOOOCOOSOOOSOSOCKC OOSCOOoOOoSoO 


COOCCCOCCOOOOOOCoOooO 


p! 
. 
; 
: 
; 
Py 
4 
: 
: 
: 
; 
Py 
. 
. 
: 
. 
P) 
e 
: 
. 
Py 
. 
Py 
e 
° 


RoPorononononons 2 2 2 2 


So SO SOS ee ee nee oe ea ee oe, 


SOCCSCOOCSCOSS OOO SOOSOOCOOOOOOSOSOOSOSOSOSOSOOOOCOooOOo 


PARS Parse tables for SDA commands 16-SEP-1984 7:36:01 VAX/YMS Macro v04-0 P 
04-000 PROGRAM DESCRIPTION Breer o be Ob:esic1 Lena ea paRSE MAR. walt! 
09 8 ee -SBTTL PROGRAM DESCRIPTION 
0 1 ; FACILITY 
0 SYSTEM DUMP ANALYZER 
900 5 : ABSTRACT 
44 $3 
000 5 This module contains the parse tchizs which 
Bb 3 ; are used to parse SDA commands. 
9909 = 40 | ENVIRONMENT 
0000 43 : NATIVE MODE, USER MODE 
0000 43; 
0000 48 ; AUTHOR 
9000 45 ; ’ 
a4 6 ; TIM HALVORSEN, JULY 1978 
0 0 48 : MODIFIED BY 
0000 50; v03-015 —MB0109 Ellen M. Batbouta 24-Jul-1984 
0000 51 3 Fix SHOW DEVICE/ADDRESS so that it will be consistent 
0000 26 ; with other sda commands with the qualifier /address 
8 : 2? : such as SHOW PORTS/ADDRESS. 
0000 «=s«55:: v03-014 EMB0102 Ellen M. Batbouta 30-May-1984 
0000 56; Add support for SHOW CLUSTER, SHOW CONNECTIONS, SHOW 
8 3 2 ; RSPID, and SHOW PORTS. 
0000 59 : v03-013 PRBO302 Paul Beck 28-Dec-1983 17:50 
8 3 4 ; Add support for EXAMINE/INST/NOSKIP 
0000 62 : v03-012 ROW0260 Ralph 0. Weber 21-NOV-1983 
0000 63 ; Changes parse tables to allow SHOW RESOURCES, SHOW LOCKS, and 
0000 64 ; SHOW PROCESS /LOCKS. 
0000 65 ; 
0000 3 
0000 3 
0000 $ 
0000 s 
0000 3 
gan: 
0009 ; 
0000 3 
0000 ; 
0 3 
cane 
si } 
0000 3 


$6 v03-011 ROW0237 Ralph 0. Weber 10-NOV-1983 
67 Add TPARSE table entries to support the SHOW DEVICE/ADDR 
rt command. 
70 vO03-010 wMc0002 ; Wayne Cardoza 30-Sep-1983 
4 Bad transition after page table range 
5g v03-009 BLS0230 Benn Schreiber 24-Jul-1983 
ne Correct end of Line / cumment handling 
76 v03~008 wmMc0001 Wayne cardoza 11-Jul-1983 
9 of Support for separate display of PO and P1 process page tables. 
79 v03-007 JLV0259 Jake VanNoy 23-MAY-1983 
9 ADD DEF INE/KEY. 
0 § v03-006 TMK0001 Todd M. Katz 21-Mar-1983 
? ADD SET LOG and SET NOLOG syntax. 
5 v03-005 CWH1002 CW Hobbs 2-Mar-1983 
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V03-004 RASO123 Ron Schaefer 8-F eb-1983 
Add SHOW PROC/RMS=RJB syntax. 


V03-003 JLV0224 Jake verter 21-JAN-1983 
Add ele tg Examine/CONDITION_VLAUE and Examine/TIME 
parsing. Add VALIDATE QUEUE syntax. 


v03-002 LMP0031 L. Mark Pilant, 17-Jun-1982 13:15 
Add support for SHOW PROCESS/CHANNELS. Also, change the parsing 
to allow a process name along with qualifiers. 


v03-001 MSHO001 Maryann Hinden 10-Jun-1982 
Add SHOW LOCK, SHOW RES, SHOW PROC/LOCK commands. 
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118 : .SBTTL DATA STORAGE 
p 3 STORAGE DEFINITIONS 
1 o 
0000 .PSECT SDADATA,WRT,NOEXE 
105 PREV_BUFFER: 
00000050 Q 1 6 BL 80 ; HOLDS PREVIOUS COMMAND 
nieniens i PREV_COMMAND : 
00000000 094 ; [ADDRESS PREV_BUFFER 
° 0038 131 KEY_ATTR: 
00000002 0058 132 .LONG  SMGSM_KEY_TERMINATE ; KEYPAD ATTRIBUTE FOR "REPEAT KEY"’ 
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STRAN *CRASH* TPAS_EXIT,DISPLAY_CRASH 
STRAN ‘DEVICE’ ,DEVIC 

STRAN ‘HEADER’. TPAS_EXIT,PRINT_HEADER 
STRAN 'LOCKS',LOCK 

STRAN ‘PAGE TABLE',PAGE_TABLE 
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STRAN ‘'PORTS'.SCS-PORTS 


SHOW LOCK Lockid 
C/ALLJ 


LOCK 
STRAN !LOCK_OPTS,TPA$_EXIT 
STRAN TPAS$_REX.,,,LOCRID 
STRAN !CK_EOS,TPAS_EXIT,SHOW_ONE_LOCK 
$STATE LOCK_OPTS 
STRAN iSKAEOS, TPAS_EXIT, SHOW_ALL_LOCKS 
SSTATE 
$TRAN ‘ALL* 
SSTATE 
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STRAN !CK_EOS, TPAS_EXIT, SHOW_ALL_LOCKS 


SHOW RES G/aLL 
/LOCKID = xxxx 
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RAN {Ck_EOS, TPAS_EXIT, SHOW_ALL_RES 
RAN ‘ALL', TPAS_EXIT,SHOW_ALL_RES 
"LOCKID' 
RAN ‘=! 


RAN TPAS$_HEX,,,,LOCKID 


TRAN !CK_EOS, TPAS_EXIT, SHOW_ONE_RES 
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SSTATE SHOW_R 

STRAN '!CK “EGS: TPAS_EXIT,SHOW_RMS_OPT 
SHOW CLUSTER /CS1D=n /SCS 


5 SSTATE VAXCLUSTER 
8 STRAN' ;CK_EOS, TPAS_EXIT, SHOW, CLUSTER 
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S', TPAS_EXIT,SHOW_SCS 
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SSTATE 
$STRAN ‘ADDRESS' 
SSTATE 
STRAN ‘=’ 
SSTATE 


STRAN !EXPRESSION, TPAS_EXIT,CDT_BYADDR 
SHOW PORTS /ADDR=n 


SSTATE SCS_PORTS 
STRAN !CK-EOS, TPAS_EXIT, SHOW_PORTS 
STRAN #/** 
SSTATE 
STRAN ‘ADDRESS' 
S$STATE 
TRAN '=" 
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SSTATE 
STRAN !EXPRESSION, TPAS_EXIT,PDT_BYADDR 
SHOW RSPID /CONNECTION=n 


$STATE SCS_RDT 

$TRAN  'CKTEOS, TPAS_EXIT, SHOW_RSPID 
$STRAN #/** 

S$STATE 

STRAN CONNECTION’ 

S$STATE 

STRAN '=' 

SSTATE 

STRAN !EXPRESSION,,,1,CDT_SPCFY 
S$STATE 

$TRAN  TPAS_LAMBDA, TPAS_EXIT, SHOW_RSPID 
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SET_LOG 
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TPAS_LAMBDA, TPAS$_EXIT,OPEN_LOG 
3 SET OUTPUT filespec 

Ly SET _OUTPUT 
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STRAN ': 
STRAN ‘=' 
STRAN [Fie LAMBDA, TPAS_EXIT 
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C 426 STRAN 'CONDITION_VALUE',, ,OPTSM_COND, OPTIONS 
ESR HIE AEE 
5¢ 138 SSTATE 
3 480 STRAN '/" EVAL 0 
€ 468) $TRAN rhage "i MBDA. TPAS._ EXIT, SHOW_FYDR 
a | g SSTATE EVAL“GUA 
O3¢ 4 : STRAN CONBITION_VALUE',,,OPTSM_COND, OPTIONS 
ase 4 STRAN TPAS_LANSDA, TPAS_EXIT, SHOW_EXPR 
C & } 
a5¢ 488 : EXAMINE start:end /PO /P1 /SYSTEM /ALL /INSTRUCTION /PSL /TIME /CONDITION 
OSC 489; EXAMINE start; length 
005¢ 490: 
O0s€ 491 
005¢ 49¢ SSTATE EXAMINE 
005¢ 49 $TRAN i 
005C 494 $TRAN TPAS_LAMBDA,EXAMINE_EXPRESSION 
005¢ 495 SSTATE 
005C 496 STRAN "PO" ,EXAM_ OK. .OPT$M_ PO, OPTIONS 
005¢ 497 STRAN 'P1" /EXAM"OK 4roPt $M"P1.OPTIONS 
005¢ 498 STRAN 'SYSTEM', EXAM OP TSA SYSTEM. OPTIONS 
005¢ 499 $TRAN LE! ExA : OOe TSM AL [.0 
005€¢ 500 $TRAN ‘IN Boer TONS ECAR TR BOTS INST. OPTIONS 
005¢ 501 STRAN Lie sOBTSH PSL OPT Ibis 
005¢ 0¢ $TRAN PTSA_TIME,OP TION 
005¢ 303 $TRAN Cane tion PVALOE’  ‘OPTSM™ COND ,OPTIONS 
005¢ 2e SSTATE EXAMINE_EXPRESSION 
005C 506 $TRAN 'CK_EOS # 
005¢ 507 STRAN ‘EXPRESSION 
005¢ 508 SSTATE 
005¢ 509 STRAN !CK k_£0S. gE Xan OK 
05¢ 510 STRAN ‘'/* EXAM QUA 
005¢ = 511 $TRAN semi. OPTSM LENGTH, OPTIONS 
005¢ B18 $TRAN COLON, OPTSAL RANGE OPTIONS 
005¢ 31 SSTATE 
05¢ 514 STRAN  !EXPRESSION 
05¢ 315 SSTATE 
05¢ 16 STRAN '/*,EXAM_QUALS 
05¢ 31 STRAN TPA$ “LAREDA EXAM_OK 
05¢ 518 SSTATE EXAR QUAL_LOOP 
Oot 19 $TRAN REOS-E ERA _OK 
5¢ 0 $TRAN ti 
05¢ 1 SSTATE EXAM_QUALS 
05¢ : $TRAN INSTRUCTION’, EXAM_ QUAL -LOOP ,OPT$M_INST, OPTIONS 
05¢ STRAN ‘NOSKIP’,EXAM QUAL ~L pTsm cNOSKTP OPTIONS 
3¢ 4 $TRAN PSL EXAM QUAL to bOP oon tSn Pe TIONS 
¢ 5 STRAN ‘TIME’ EXAM Q 00P; ,OP ish Ary PORT IONS 
5¢ 6 STRAN CONDITION ay mait te it _COOP, .OPTSM_COND OPTIONS 
3¢ SSTATE EXAM_OK 
¢ 8 $TRAN TPAS- “LAMBDA, TPAS_EXIT,EXAM_MEMORY 
5¢ 9 SSTATE EXAMTINS 
3¢ 0 $TRAN ' 
¢ $TRAN TPAS_LAMBDA,EXAMINE_EXPRESSION 
5¢ 2 SSTATE 
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v04=000 PARSER STATE TABLE BrREp=1984 OS:35:51 LEDAVERCIPARSE MARGS * @ vO¢ 
0 STRAN 'NOSKIP*,EXAM_INS, ,OPTSM_NOSKIP, OPTIONS 
0 ; VALIDATE QUEUE expression 
6 : SSTATE VALIDATE 
0 $TRAN YOUEUE SVAL. QUEUE 
0 SSTATE VAL_QUEUE 
0 STRAN '!CK-EOS,VALIDATE_Q 
0 STRAN i! VAC_QUEUE_OPTS, TPRS. EXIT 
0 SSTATE YAL_QUEUE OPTS | 
$TRAN AL_QOE_QUAL 
0 $TRAN \EXPRESSIONT VAL _QUEUE | 
0 SSTATE VAL_QUE_ QUA 
0 STRAN ‘SELF RELATIVE', VAL_QUEUE, ,OPTSM_SELF ,OPTIONS 
STRAN ‘MAXIMUM_LINKS' 
SSTATE 
$TRAN ‘:'° 
STRAN ‘=! 
SSTATE 
STRAN !DECIMAL,VAL_QUEUE,VAL_SET_MAX 
$ VALIDATE | 
$ 


RAN 1PAS OO AMBD KS TPAS EXIT, VALIDATE_QUEUE 


EXPRESSION ANALYSIS FOR EXAMINE ARGUMENTS 


THIS REDUCTION TABLE USES A SEPARATE STACK FOR PARSING 
TOKENS AS THEY ENCOU spt THE RESULT OF THE LAST 
OPERATION IS ALWAYS PLACED IN TPASL_NUMBER TO RETURN 
TO THE CALLING TRANSITION ROUTINE. 


SSTATE 4 pee 


STRAN i 
SSTATE GXPOP | 
$TRAN ADDITION 
STRAN "=" “SUBTRACTION 
TRAN TPA$ LAMBDA, TPAS EXIT 
SSTATE ADDITION 
STRAN EXPRESSION, TPAS_EXIT,ADD2 | 
SSTATE SUBTRA CTION | 
$TRAN UB2 | 
; STRAN iEXPRESSION, TPAS EXIT, SUB2 | 
SSTATE 
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TERM 
STRAN ‘FACTOR 
SSTATE | 
STRAN ‘@',ARITH_SHIFT 
STRAN ‘®' MULTIPLICATION 
STRAN ‘!DIVISION, TPAS_EXIT | 
STRAN TPAS_LAMBDA,TPAS_EXIT | 
ARITA_SHIFT 
TTPAS_E S$ 
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SSTATE MULTIPLICATION 
STRAN ! TERM, TPAS_EXIT,MULT2 
SSTATE DIVISION 
$TRAN. '/' 
SSTATE 
0 STRAN =! TERM, TPAS_EXIT,DIV2 | 
0 SSTATE FACTOR 
0 STRAN '='", NEGATE 
STRAN '(" {PARENS 
0 STRAN ‘a'. INDIRECT 
0 STRAN '.'-TPAS EXIT, EVAL_DOT 
$TRAN TPA$ SYMBOL. TPAS ERIT.EVAL_ SYMBOL | 
0 STRAN =! CONSTANT, TPAS_ERIT,EVAL_CONSTANT 
0 SSTATE NEGATE | 
0 STRAN ‘FACTOR, TPAS_EXIT,NEG1 
0 SSTATE INDIRECT | 


STRAN IFACTOR, TPAS_EXIT EVAL_CONTEN'S 
STRAN ! EXPRESSION | 
STRAN ')", TPAS_EXIT | 
SSTATE CONSTANT | 


STRAN = *+' ,CONSTANT 
STRAN ‘'*! x | 
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CTLREG 
STRAN TPA$ HEX, TPAS_EXIT 
$STATE SYSREG 
STRAN TPAS HEX, TPAS_EXIT,ADD8000 


TRAN TPAS_HEX, TPAS_EXIT,ADD7FFE 
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STRAN !HEX, TPAS_EXIT | 

i 

SSTATE RADIX 

STRAN 'O',OCTAL 

STRAN 'X'-HE | 

STRAN 'D'.DECIMAL | 

0 $STATE OCTAL 

0 STRAN TPAS_OCTAL,TPAS_EXIT | 

0 S$STATE DECIMAL | 

0 STRAN TFAS_DECIMAL, TPAS_EXIT | 

0 SSTATE HEX 

0 STRAN 'G',SYSREG 

0 $TRAN 'H" | 

6 | 
0 
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5 8h EE EEE TOOL EL OLS Lette A See te tee tty Mtr 
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0 
0 : 
0 ; SHOW PROCESS Crame/ALL) C/INDEX=n] C/SYSTEM) 
: WORKING _SET_LIST or WSL 
: /PROCESS SECTION_TABLE or PST 
0 : /PAGE_TABLES or PPT 
0 ; start:end 
0 ; start; length 
0 ; /P0 
0 ; /P1 
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y0e2500 PARSER STATE TABLE go seen oe 85: 39:9) SDA. SRCJPARSE.MAR; 1 - | v4 
0 C 647; /REGISTERS 
C 648; /PCB 
0 C 649: /PHD 
5C 650; 7ALL 
bose bee tee Oe . | 
Py = te) Pa®) eocveeD tn 
bose ee | socks. : | 
b05¢ 654 : / CHANNELS 
05¢ 655 : 
005¢ 656 
005¢ 657 SSTATE PROCESS 
903 658 STRAN !CK_EOS,TPAS_EXIT,SHOW_PROCESS 
5¢ 659 $TRAN ‘/' 
005C 660 STRAN TPAS_SYMBOL,PROCESS,,,PROC_NAME 
005C 661 SSTATE PROCESS1 
005¢ 66 STRAN INDEX" PROC PIX 
005C 66 STRAN SYSTEM! , PROCESS, ,OPTSM_SYSPROC , OPTIONS 
005C 664 STRAN "WORKING SET LIST’ PROCESS, ,OPTSM_WSL OPTIONS | 
005C 665 STRAN ‘WSL’, PROCESS, ,OPTSM_WSL,OPTIONS | 
005¢ 666 STRAN ‘PROCESS SECTION TABLE’ PROCESS, ,OPTSM_PST, OPTIONS 
005C 667 STRAN 'PST' PROCESS, ,OPTSM_PST, OPTIONS | 
005C 668 TRAN ‘'PAGE_TABLES'.PROC_PPT, ,OPTSM_PPT, OPTIONS 
005C 669 STRAN ‘PPT’ PROC PPT,,OPTSM PPT, OPTIONS 
005¢ 670 STRAN ‘PO', PROCESS, ,<OPTSM_PPT!OPTSM_PO_PPT>, OPTIONS 
005¢ 671 STRAN 'P1' PROCESS. .<OPTSM_PPT | OPTSM-P1 PPT>. OPTIONS 
005¢ 672 STRAN ‘REGISTERS’ PROCESS, -OPT$M_REGS, OPTIONS 
005C 672 STRAN 'PCB',PROCESS, ,OPTSM. PCB, OPTIONS | 
005C 674 STRAN ‘'PHD'.PROCESS.. HD OPTIONS | 
005¢ 675 STRAN  'ALL* PROCESS: » <OPTSA PCB! OPTSM_PHD!OPTSM_REGS!- 
05C 676 OPTSM_WSL!OPTSM_PST ‘OPTSM PPT !OPTSM_CRAN>, OPTIONS 
005¢ 677 STRAN ~*LOCKS', PROCESS, ,OPTSM_LCK,OPTIONS 
005¢ 678 STRAN ‘CHANNELS’, PROCESS, ,OPTSM_ CHAN, OPTIONS 
005C 679 TRAN !RMS,PROCESS, ,OPTSM_RMS, OPTIONS 
005C 680 SSTATE PROC! PIX 
005¢ 681 $TRAN ':' 
005C 682 $TRAN ‘=! 
005C 683 SSTATE 
005C 684 TRAN TPAS_HEX,PROCESS,STORE_PROC_INDEX 
005C 685 SSTATE PROCPPT 
005C 686 $TRAN  !CK_EOS, TPAS_EXIT,SHOW_PROCESS 
005¢ 687 STRAN '/*TPROCESS1 
005C 688 STRAN !EXPRESSION 
005C 689 SSTATE | 
005¢ 690 STRAN  SEMI,,,OPTSM_PPT_LEN, OPTIONS | 
05¢ 691 STRAN COLON..,OPTSM_PPT_RNG, OPTIONS | 
005C 69 SSTATE 
005¢ 69 STRAN 'EXPRESSION, PROCESS 
05¢ 694 
005¢ 695 ; 
OSC 696 ; SHOW PROCESS/RMS poopt? 
0O5C 697 ; =(optl,opt2,...,optn)] 
005C 698 : 
005¢ 699 | 
005¢ 00 SSTATE RMS 
05¢ 701 STRAN 'RMS' | 
909¢ 108 SSTATE | 
05¢ 70 STRAN !DISPLAY, TPAS_EXIT, ,OPTSM_RMSD OPTIONS 
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STRAN TPAS_LAMBDA, TPAS_EXIT 


; SET PROCESS name /INDEX=n /SYSTEM 


E rer aee PROC 
TPAS SYMBOL,» -PROC_ NAME 
RAN TPA$_LAMBDA,TPAS_EXIT,SET_PROCESS 
STATE INDEX 
R _— 
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INDEX’ 
TRAN ‘SYSTEM, TPAS_EXIT,,OPTSM_SYSPROC OPTIONS 
SSTATE 
STRAN ob eg 
$TRAN ‘= 


$TRAN  TPAS_HEX, TPAS_EXIT,STORE_PROC_INEEX 


$STATE POOL 
{CK_E0S, TPAS_EXIT, SHOW_POOL 


TPAS_LAMBDA,POOL_RANGE 


STRAN ‘IRP',POOL,,OPTSM_IRP, OPTIONS 

STRAN 'LRP'.POOL,.OPTSM_LRP,OP TIONS 

$TRAN 'SRP'.POOL,,OPT$M-SRP,OPTION 

S$TRAN ‘NONPAGED' .POOL OPTSh NONPAGED OPTIONS 


$TRAN :PAGED ® POOL O6tS $M, PAGE OPTIONS 
rath NONPAGED :OPTSM_ PAGED OPTIONS 
$TRAN a tbakRYe Seo. OP M SUMMARY TIONS 

STRAN "HEADER' POOL LaOptsn MAP ADER OPTIONS. 

STRAN ‘FREE’, POOL, ,OPTSM FREE OPTIONS 

S$TRAN ‘TYPE’ OOP tse, TYPE , OPTIONS 
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| 
SHOW POOL /IRP /NONPAGED /PAGED /ALL /SUMMARY /HEADER | 
i 
| 
| 
| 
| 
| 
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STRAN TPAS_SYMBOL,POOL,,,STRUCTURE | 


SHOW POOL start:end 
start; length 


STATE POOL_RANGE 
‘EXPRESSION | 


SEMI,,,OPTSM_LENGTH, OPTIONS 
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STRAN COLON,,,OPTSM_RANGE , OPTIONS 
$STATE 

$TRAN !EXPRESSION 

$STAT 

STRAN  !CK_EOS, TPAS_EXIT, SHOW_POOL_RANGE 


v 
Pid 
2D 
“ 
me 
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ab f 
STATE T 

OSC 761 

be 166 

05¢ 76 

05C 764 

05C 765 
Beer £96 | 

bee eh SHOW STACK /mod | 

° mode | 
boss 769 ; 
005¢ 770 
005¢ 771 SSTATE STACK 
005¢ 106 STRAN 'CK_EOS, TPAS_EXIT,PRINT_STACKS 
005¢ 77 $TRAN i/* 
005¢ 77% STRAN TPAS_LAMBDA, STACK_RANGE 
Mbt ae sthhar INTERRUPT", STACK OPTS ISP, OPTIONS | 
N 

005€ 777 $TRAN ‘KERNEL, STACK,,OPTSM opt 
005¢ 778 STRAN ‘EXECUTIVE’ (ST TER. OF 1S8 tie istic 
005¢ 779 STRAN ‘SUPERVISOR S STACK oO $A_SSP,OPTIONS 
005¢ 780 STRAN ‘USER',STACK.,OPT$M USP, OPT | 
005¢ 781 STRAN ‘'ALL', STACK, OPTSM_ALL, OPTIONS 

005¢ 782 | 
005¢ «783 ; 
005C 784 ; SHOW STACK start:end 
O05C 785 ; start; length | 
005C 786: | 
005¢ 787 
005C 788 SSTATE STACK_RANGE 
005C 789 $STRAN ‘EXPRESSION 
005¢ 790 SSTATE 
005¢ = 791 STRAN SEMI,,,OPT$M_LENGTH, OPTIONS 
005¢ 679 $STRAN COLON,.,OPTSM_RANGE OPTIONS 
005¢ 4679 SSTATE 
005C 794 S$TRAN ‘EXPRESSION 
005¢ 795 SSTATE | 
005¢ 796 STRAN !CK_EOS, TPAS_EXIT,PRINT_ANY_STACK 
005¢ 797 
005¢ «798 ; 
005C 799 ; SHOW PFN_DATA <optional pfn> 
005¢ 800 : 
005¢ 801 
005¢ 80 SSTATE PFN_DAT 
005¢ 80 STRAN '/'7PFN OPTION 
005¢ 804 $TRAN EX ZPEN-OPTION SINGLEPFN. OPTIONS 
905¢ 805 STRAN TPAS_LAMBDA,, ,OPTSM~FREE !OPTSM_MODIFIED!OPTSM_BAD!OPTSM_WHOLEPFN,OPT | 
b09¢ 807 $TRAN TPAS_LAMBDA, TPAS_EXIT,DISPLAY_PFN | 
005¢ 509 SSTATE PFN_OPTS | 
005¢ 810 STRAN ‘/'™ | 
005¢ = 811 $TRAN  TPAS LAMBDA, TPAS_EXIT,DISPLAY_PFN 

005¢ 1g SSTATE PEN OPTION 
005¢ = B1 $TRAN TEREE® PFN_OPTS OpTSH, FREE OPTIONS 
005¢ 814 $TRAN "MODIFIED? PFN_OPTS, ,OPTSM pRODIF IED. OPTIONS 

05C 815 STRAN ‘BAD',PFN_OPTS OPTsAe rn? PTION 

O5C 816 STRAN *SYSTEM' PFN Sats OPTSH WHOLEPFN. OPTION | 

05¢ 81 $TRAN Rue PFN "OPTS. .oPf _FREE!OPTSM NaOD IF LED! OPTSM _BAD!OPTSM_WHOLEPFN,O 
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Cc 


SHOW PAGE _TABLE/SYSTEM/GLOBAL/ALL 


TATE PAGE He a # | 
RAN '/', PAGE OPTION 
RAN TPAS LAMBDA... OPTSN. SYSTEM! OPTSM_GLOBAL , OPTIONS 


RAN !CK_EOS, TPAS_EXIT,DISPLAY_SPT 
RAN TPAS_LAMBDA,PAGE_RANGE 


STATE Cage OPTS 


$TRAN it EOS, TPAS_EXIT, DISPLAY _SPT 
STRAN TPAS -LARBDA, PAGE_RANGE 

SSTATE PAGE~OPTION 

STRAN SYS STEM". PAGE -OFTS. OP TSM. SYSTEM, OPTIONS 
$TRAN “GLOBAL “PAGE OPTS, .OPT$SM~ GLOBAL .OPTIONS 
STRAN ALL", PAGE AOPTS. .OPTSM. ALC, OPTIONS 


SHOW PAGE start:end 
start; length 


| 
| 
| 
SSTATE PAGE_RANGE 
STRAN ‘EXPRESSION 
STRAN SEMI,,,OPTSM_LENGTH,OPTIONS 
STRAN COLON,,,OPTSM_RANGE ,OPTIONS 
i 
| 


$STATE 
TRAN ‘!EXPRESSION 
$STATE 
STRAN !CK_EOS,TPAS_EXIT,DISPLAY_SPT_RANGE 
; SHOW SUMMARY / IMAGE 
SSTATE sow SUMMARY 
$TRAN k_E0s, TPAS_EXIT,PROCESS_SUMMARY 
$STRAN 
$STATE 
$TRAN eS 


SHOW SYMBOLC/ALL] Crname) C/ALLI 


STATE SYMBOL | 
TRAN. TPAS LAMBDA, . CLEAR SYMBOL NAME | 
STATE SYMBOL 0 ALS | 
T 
T 


BOL } 
RAN TPA$ SYRBOC. aH »SYMBOL_N 
RAN '!CK_EOS, TPAS_EXIT:SHOW_ SYMBOL 
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SSTATE Hh, 
STRAN tk B60Ss Tpas EXIT, SHOW_SYMBOL 
STRAN SYMBOL. SYMBOL _QUALS,,OPTSM_ALL OPTIONS 


SHOW DEVICE device 
CE 
CE 


E 

Evl PTS 

~SYRBOC, TPAS -EX ait -DISPLAY_DEVI 
=L T, DISPLAY DEVI 
E 

E 


$TRAN !EXPRESSION 
$TRAN TPAS_LAMBDA, TPAS_EXIT,DISPLAY_DEVBYADDR 


$ DEFINE symbol = value 
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$STRAN T 


NE 

TPAS_EXIT,DEF INE _KEY 
_SYMBOL,,.,SYMBOC_ DESC 
906 (My 


TPAS_LAMBDA 
‘EXPRESSION 
$TRAN  TPAS_LAMBDA, TPAS_EXIT, DEF INE_SYMBOL 
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: HELP COMMAND 


S$STATE HELP_C 
STRAN '!CK Fos TPAS_EXIT,DISPLAY_HELP 
STRAN ‘COCLECT, TPAS_EX! ute DISPLAY_HELP 
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SSTATE EXIT_CM D 
$STRAN ‘CK EOS EX1T_COMMAND 
STRAN TPAS_ OF RING. ThA $'EXi T,EX1T_ COMMAND 
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: READ filespec 
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TATE READ_CMD 

RAN '!REAB_QUALS 

RAN TPAS_CAMBDA 

RAN !COLLECT,,,,FILE_DESC 

RAN TPAS_LAMBDA, TPAS_EXIT,READ_SYMFILE 


TATE READ_QUALS 
‘7° 
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RAN ‘RELOCATE’ 
$TRAN '‘s' 
STRAN !EXPRESSION, TPAS_EXIT,STORE_RELOCATION 


; COPY filespec 
SSTATE COPY_CMD 
com. 'COLCECT,,,,FILE_DESC 
RAN TPAS_LAMBDA, TPAS_EXIT,SAVE_DUMP 


address /TYPE=struct 
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TATE FORMAT_CMD 
RAN !FORMAT_OPTS 


7 

TRAN, ! EXPRESSION 

TRAN 'FORMAT_OPTS 

$TRAN  TPAS_LAMBDA, TPAS_EXIT, FORMAT 
SSTATE FORMAT_OPTS 

STRAN TPAS_LAMBDA, TPAS_EXIT 

STRAN 'TYPE* 
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$TRAN  TPAS_SYMBOL,,.,STRUCTURE 
$TRAN TPAS_LAMBDA, TPAS_EXIT,,1,0PTIONS 


SEND_STATE 
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PARS Parse tables for SDA commands 16-SEP-1984 01:36:01 VAX/VMS Macro V04-00 Page 
042500 EXPRESSION ANALYSIS ACTION ROUTINES g-3FE 218 4 85: 39:9) SDA. SRCJPARSE.MAR; 1 . e, 
a 3) .SBTTL EXPRESSION ANALYSIS ACTION ROUTINES 
00 993: 
09 398 ; EXPRESSION ANALYSIS ACTION ROUTINES 
000 996 ; THESE ROUTINES ARE CALLED FROM THE EXPRESSION ANALYSIS 
000 997: PARSING TRANSITIONS TO EVALUATE ARGUMENTS USING A SEPARATE 
000 998 ; STACK SPACE. 
00 999 ; 
8 : 99 ; INPUTS: 
99 0¢ : AP = ADDRESS OF TPARSE PARAMETER BLOCK 
0000 1004 :--- 
9000 1005 
0000 09 1006 ADD2: .WORD 0 
61 Bt to $b04 1908 tite Fabs ert) ADD 2 ARGUMENTS, RESULT ON TOP 
47 11 0007 1009 BRB STORE 
0009 1010 
0000 0009 1011 MULT2: .WORD 0 
38 ©8610 0008 101g BSBB. Ss EVAL_SETUP 
61 81 ¢& 000D 101 MULL2 (R1)%,(R1) : MULTIPLY 2 ARGUMENTS, RESULT ON TOP 
3E 11 0010 1014 BRB STORE 
O012 1015 
0000 0012 1016 suB2: .wORD 0 
32. 10 0014 1017 BSBB ss EVAL_SETUP 
61 81 C2 0016 1018 SUBL2 (R1)#,(R1) 3; SUBTRACT 2 ARGUMENTS, RESULT ON TOP 
35 11 0019 1019 RB STORE 
0018 1020 
0000 0018 1021 DIv2: .WORD 0 
29 10 001D 1088 BSBB  —- EVAL_SETUP 
61 D5 OO1F 10 TSTL = (R11) : DO NOT ALLOW DIVIDE BY ZERO 
3c 13 9021 1024 BEQL FAILURE 
61 B1 C6 0023 1025 DIVL2 (R1)+,(R1) : DIVIDE 2 ARGUMENTS, RESULT ON TOP 
28 11 0026 1026 BRB STORE 
0028 1027 
0000 0028 1028 SHIFT2: .wORD 0 
1c «616 00 A 1029 BSBB  —s EVAL_SETUP 
50 81 00 002c 1030 MOVL = (R1)F,RO : GET SHIFT COUNT 
61 61 50 78 OO2F 1031 ASHL _—RO, (R14), (R1) : SHIFT LEFT BY COUNT 
18 4611 «+200 3 1038 BRB STORE 
0035 10 
0099 6 5 1034 NEG1: .WORD 0 
OF 1 1035 BSBB —s- EVAL_SETUP 
61 61 CE 0039 10 MNEGL (R1)7(R1) : NEGATE 1 ARGUMENT, RESULT ON TOP 
12 11 00 c BRB STORE 
§ iA § EVAL_CONSTANT 
- 0000 1040 WO 0 
06 *2 0040 1041 BSBB —s- EVAL_ SETUP 
71 1C AC dO 0042 1 4g MOVL § TPASC_NUMBER(AP),-(R1) ; PUSH RESULT FROM TPARSE 
08 11 0046 104 BRB STORE 
48 1044 
48 1045 EVAL_SETUP: 
51  00000000'EF B0 48 46 MOVL _ESP,R1 > R1 = STACK POINTER 


PARS Parse tables for SDA commands 16-SEP-1984 01:36:01 AX/VMS Macro V04-00 Pa 23 
¥042600 EXPRESSION ANALYSIS ACTION ROUTINES ety 7 83: 36:9! SDA. SRCIJPARSE.MAR; 1  @) 
50 104 
10 AC «661—CO=D 30 i i os MOV (R1), TPASL_NUMBER (AP) SAVE RESULT FOR CALLER 
00000000" EF 8) 00 54 29 MOV TP Bites + STORE STACK POINTER 
ow oR Be ye a Oe 
SF 1054 
Sef 1 38 FAILURE: 
70 bt 0a) 1089 ene 
062 105 
0000 ts Hi pttnitigt 
10 AC 7F 0064 1061 PUSHAQ TPASL_TOKENCNT(AP) ; DESCRIPTOR OF SYMBOL NAME 
00000000' EF Qi FB 0067 106¢ CALLS #1,SYMBOL_VALUE : TRY TO FIND IN SYMBOL TABLE 
FE) Ee BOT oea ta nh 
10 0075 1065 BSBB. -s« EVAL_SETUP 
1 8ED0 007 1966 POPL <=(RIJ ; PUSH RESULT ONTO STACK 
D6. 1 0076 106 BRB STORE 
O7A 1068 
0000 SOFA 1070 Cr tHPOT en 
CA 10 O007C 1071 BSBB  EVAL_SETUP 
71 connan00"25 FF BSE 18g Baat ages man 
0087 1074 
0000 BOB? 107 CV ALHCONTENTS: 
BD 10 $089 1077 BSBB.—s- EVAL_SETUP 
0088 1078 REQMEM @(RI) : GET CONTENTS OF LOCATION 
51 pd 0095 107 PUSHL R11 
AF 10 0097 1080 BSBB_ - EVAL_SETUP 
61 BEDO 0099 idee POPL (RID : AND REPLACE ARG. ON TOP OF STACK 
009E 108 3 
toa O09 1084 ADD8000: ae ; ADDRESS IN SYSTEM REGION 
1C AC 80000000 8F co DOD 1086 ADDL #°X80000000, TPASL_NUMBER(AP) ; ADD BASE OF SYSTEM REGION 
0OA9 1088 
res Q0A9 1988 ADD7FFE: atta ; ADDRESS IN CONTROL REGION 
1C AC 7FFEOQOOO BF CO O0AB 1091 ADDL #*X7FFEO000, TPASL_NUMBER(AP) ; CONTROL REGION 
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READ/RELOCATE VA 5=-SEP=1 SDA.SRCIJPARSE.MAR; 1 ( 


-SBTTL STORE_RELOCATION, STORE READ/RELOCATE VALUE 


2,5 
. 
mo 


vib Parse 
v04-000 STORE 


= 


STORE THE VALUE OF THE READ/RELOCATE QUALIFIER. 
INPUTS: 

TPAS_L_NUMBER(AP) = RELOCATION BASE 
OUTPUTS: 

RELOCATE _BASE = RELOCATION BASE 


STORE_RELOCATION: 
-wORD 0 


0000 0084 


QOOOOOOO'EF 1 AC 00 00B6 


MOVL  TPASL_NUMBER(AP) ,RELOCATE_BASE 
04 OOBE RET 


STORE THE LOW ORDER BITS (AS DETERMINED BY PIX WIDTH) OF THE PROCESS 
INDEX. THIS LETS US INTERCHANGE INTERNAL AND EXTENDED PIDS 


INPUTS: 

TPAS_L_NUMBER(AP) = USER-SPECIFIED PROC INDEX 
OUTPUTS: 

PROC_INDEX = LOW ORDER BITS 


STORE _PROC_INDEX: 


EXTZV #0, PIX_WIDTH, TPASL_NUMBER(AP), PROC_INDEX 
MOVL #1, RO 
RET 


0000 Opes 

1C AC OO0000000'EF 00 EF 00C1 
00000000’ EF Boca 

50 601~—si0 CF 

Bn0g 

04 00D 


oS 

@w 

nn 
— —s ee ed ed dd dd 8 wd 3 2 3 2 2 2 SS 2 I 2 — Os 2 3 — 2) -) —) — 3 2 >uw 
a i kk kd od td td dd = = I OOOOOO 
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~SBITL STORE_PROC_INDEX, STORE PROCESS INDEX LOW BITS 
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cues Parse tables for SDA commands 16-SEP-1984 1 VAX/VMS Macro V04-00 Pa 5 
Oe 500 AVE_COMMAND, SAVE THE CURRENT COMMAND -SEP-1984 t 8}: 3¢: $ SDA. SRCIPAR RSE_MAR: 1 ys 25 
4 1138 : ~SBTTL SAVE COMMAND, SAVE THE CURRENT COMMAND | 
D3 1139 : 
D 1140 ; SAVE THE we ENT COMMAND IN THE COMMAND BUFFER | 
4 1303 3 SO THAT A LATER ‘REPEAT’ COMMAND CAN RECALL IT. 
D 1148 : INPUTS: 
OD 1144 ; 
p 1122 : TPASL_STRINGCNT(AP) = DESCRIPTOR OF STRING 
a0 1147 t OUTPUTS: 
op 1145 : PREV_COMMAND = DESCRIPTOR OF SAVED STRING 
6p 1151 :--- 
00D 1126 
OD3 1153 SAVE_COMMAND: : 
003C +4 12 ~WORD “M<R2,R3,R4,R5> 
00000050'EF 08 AC 0 ODS 1156 MOVW TPASL_STRINGCNT (AP) ,PREV_ COMMAND 
C 9 AC 8 OODD 1157 MOVC TPASL— _STRINGCNT CAP) @TPASL_ STRINGPTR(AP) ,= 
00000054 'FF BoES 1128 aPREV_ COMMAND +4 
doe? 1160 : Tell the SMGS Level how to repeat this command 
7E D4 O0E7 116¢ CLRL = = (SP) ; State string null 
QOOOOOSO'EF 99F OOE9 116 PUSHAB PREV_COMMAND : Last comman 
00000058" cr OF QOOEF 1164 PUSHAB KEY_ATTR : attributes 
E D4 Bere 1165 CLRL ~ ) 3; No IF_STATE 
QOOOOOOO'EF 9F OOF? 1166 PUSHAB REFFAT_KEY : Repeat key name (KPO defaults) 
00000000" EF oF pore 1167 PUSHAB KEYTABCE : key table 
00000000 ' GF 06 FB 0103 1168 CALLS #6,G*SMGSADD_KEY_DEF 3 ak how definition 
QO10A 1169 SIGNAL 
0116 1170 RET 
| 


ree eens 
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PARS Parse tables for SDA commands 1 mi teh 03 :39:9! othe Macro V04-00 Page 6 
v04= REPEAT_COMMAND, REPEAT THE PREVIOUS COMM 5=SEP-1984 03:33:21 ([SDA.SRCIPAQSE.MAR; 1 (8) | 
iif 1178 -SBTTL REPEAT_COMMAND, REPEAT THE PREVIOUS COMMAND | 
117 (117% ; | 
117 1175 ; STORE THE PREVIOUS COMMAND IN THE COMMAND BUFFER 
117 1176 : AND RESTART THE PARSE. 
117 (1177 
117 1178 ; INPUTS: 
117 1179 ; | 
a4 3 9 3 PREV_COMMAND = DESCRIPTOR OF PREVIOUS COMMAND 
aif 118¢ : OUTPUTS: | 
O12 1184 : TPASL_STRINGCNT(AP) = THE PREVIOUS COMMAND IS RELOADED | 
0117 1186 jose | 
0117 11 | 
0117 1188 REPEAT_COMMAND:: 
0000 BE 1189 -wORD 0 | 
08 AC O0000050"EF 7D 0119 1191 MOVQ =PREV_COMMAND, TPASL_STRINGCNT (AP) | 
04 0121 1192 RET | 
| 
| 


| 
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PARS Parse tables for SDA co 
v04- DEFINE_KEY = DEFINE KEY -SEP-19 SDA.SRCJPARSE .MAR; 1 
1 1194 ~SBTTL DEFINE_KEY = DEFINE KEY 
iss ge eo 
! 1197 : Use input buffer as input, calls SMG$ to parse DEF/KEY. 
1 1198 ji--- 
01 1200 
0004 4 ¢ : 1 .ENTRY DEFINE_KEY,“M<R2> 
00000000 ' EF F 0124 1 68 PUSHAL INPUT_BUFFER ; address 
7E Q0000000'EF C O12ZA 1204 MOVZWL INPUT_LEN,=(SP) : length 
pp 131 1205 PUSHL 4 3; address of desc 
pope ng00 "Fe F 133 (1 86 PUSHAB KEYTABLE 3; table id 
90000000 ' GF ; FB 0139 1 CALLS # Go SMGSDEF INE_KEY ; Define key... 
, ie co Bb 1208 DL #8,SP 3 pop 
0143 1209 SIGNAL 
O146F 1210 STATUS SUCCESS 3: ak 
04 3136 1211 RET 
0157 1212 


Page 27 
. (9). 


- 


D 2 | 
PARS Parse tables for SDA commands “SEF=1984 01:36:01 VAX/VMS Ma v04-0 Pp POC 
$0500 Action Routines for SET: SHOW RNS/DISPLAY ~SEP-1984 84:39:91 SDA. SRCIPARSE. MAR; 1 9 — (95) v0é 


-SBTTL Action Routines for SET! SHOW RMS/DISPLAY=optionspec 
: SETUP_RMS_TMP == Setup the temporary RMS options word. 


++ 
END_SET_RMS -- Finish the SET RMS Command. 
Inputs: 

Final MARS 018 _THe the SET RMS command: 

RMS_IFI-T 

Outputs: 

Permanent hns01 OP options set: 

S_OPT = RMS_DIS_TMP 

RMS_IF1-TMP 


157 1214 
157 1215 ; 
157 1 16 
13) 1518 ; Input 
; Inputs: 
157 1 i§ : 
157 1220 ; None. | 
18 155 = output | 
; Outputs: : 
0157 1 § : , 
0157 1224; RMS_DIS_TMP = 0 | 
B12! 1225 ; RMS_IFI_TMP = 0 
157 1226 ;--- 
0157 1227 
0000 0157 1228 SETUP_RMS_TMP: .WORD 0 
OOOOOO000'EF D4 0159 1229 cCRt RMS _DIS_TMP 
00000000'EF B4 O15F 1230 CLRW RMS” IF I~ TMP 
50 01 D0 0165 153) MOVL #1,RO0 
04 0168 1 3 RET 
0169 123 
0169 iste p++ 
bie9 1$32 ; STORE_TMP1_OPT == Merge this particular option into temporary option word. 
0169 1237 ; Inputs: 
0169 1238; 
g162 1673 : RMS_DIS_TMP1 = Outcome of !DIS_OPT state (Possibly containing OPTSM_NO) 
0169 1241 ; Outputs: 
0169 1 $s s 
0169 12435 ; RMS_DIS_TMP is set or cleared with value of RMS _DIS_TMP1 depending 
0169 1244; on value of OPTSM_NO in RMS_DIS_TMPT. 
0169 1$¢2 je 
0169 1246 
0000 0169 1247 STORE_TMP1_OPT: .WORD 0 
OOOOO000'EF 01 D3 0168 1248 BITL #OPTSM_NO,RMS_DIS_TMP1 ; was this display option ‘'no'ed'’? 
F 12 0172 1249 BNEQ 10$ : if neq yes 
OOOOO000'EF O0009000"EF C8 0174 1250 BISL RMS_DIS_TMP1,RMS_DIS_TMP 
50 01 DO O17F 1251 MOVL #1,RO 
04 Bi8e 1 26 RET 
OOOO0000'EF QO0000000"EF CA 0183 1253 10$: BICL RMS_DIS_TMP1,RMS_DIS_TMP 
50 01 DO OI18E 1254 MOVL #1,R0 
04 0191 1255 RET 
0192 1256 
Re 1257 
192 1258 
0192 1259 
0192 1260 
0192 1261 
ag 1 6¢ 
192 126 
BI3 1264 
13138 
192 1 83 
192 1 o8 
192 1 8 
0192 1270 
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000 ; 
00000000" EF 444444 D0 
00000000" EF QOOOO00"EF 80 F 
50 0601S A 
04 D 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
0000 E 
OOOOOOOO"EF 1C AC BO 0 
50. (01 4 8 


0000 
QOO00000"EF B84 
50.01 BO 
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SDA.SRCIJPARSE .MAR; 


71 je 
END_SET_RMS: .WORD 0 
MOVL  RMS_DIS_TMP,RMS_DIS_OPT 
5 MOVW «RMS EIFIZTMP,RMS_IFI 
ae Behe Fo 


0 { STORE_1F1_THP -- Set the temporary IFI from the results of !EXPRESSION. 
Inputs: 

TPASL_NUMBER(AP) = Results of !EXPRESSION 
Outputs: 


RMS_IFI_TMP contains above value. 


STORE_IF1I_TMP:.WORD 0 
mOvw TPASL_NUMBER(AP) ,RMS_IFI_TMP 
MOVL #1,R0 


RET 


p+++ 

: CLRLIFI_TMP == Clear RMS_IFI_TMP. 
3 Inputs: 

None. 

: Outputs: 

RMS_IFI_TMP = 0 


CLR_IFI_TMP:.WORD 0 
CLRW RMS_IFI_TMP 
MOVL #1,R0 
RET 
+++ 
SETUP_DIS_OPT -=- Setup for !DIS_OPT state. 
Inputs: 
None. 
Outputs: 
RMS_DIS_TMP1 = 0 


SETUP_DIS_OPT: .WORD 0 
CCRL RMS_DIS_TMP1 
MOVL #1,RO0 
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PARS Parse tables for — commands 16-SEP-1984 01:36:01 VAX/VMS Macro v04-00 Page | 
v04- Action Routines for SET! SHOW RMS/DISPLAY ets §3:39:9) SDA.SRCIJPARSE .MAR; 1 . JO vO4 
046 0103 1 RET 
1D4 1 : 
104 1330 ;++4+ 
13? ! 1 ; STORE_STAR == Include into temporary options previous perm options. 
104 1 : ; Inputs: 
ate 1334 ; 
104 1335 ; RMS_DIS_OPT = Permanent options. 
O1D4 1 § 3 RMS_IFI~= Permanent IFI. 
0104 1 ; 
01D4 1338 ; Outputs: 
BID? 1339 ; 
104 1340 ; RMS =D}5_1RPT = RMS_DIS_OPT = OPTSM_NO 
01D4 1341 ; RMS_IFI-TMP = RMS_TFI | 
0104 1 4g je 
104 134 
0000 0104 1344 STORE_STAR:.WORD 0 
Q0000000'EF DD 01D6 it re PUSHL RMS_DIS_OPT | 
E 01 CA O1DC 1346 BItL’ FOPTSH: Ro. (SP) 
OOOOOOOO'EF BEDO ODF 1347 POPL RMS_DIS_ TMP) 
OOO00000'EF  OOO00000"EF BO O1E6 1348 MOV ans oo ee 7RMS_IFI_TMP | 
50 01 DO OIF1 1349 MOVL 
O1F4 1350 RET 
O1FS 1351 ; +++ 
pire : 25 ; CLEAR_SYMBOL_NAME -- Clear SYMBOL_NAME prior to parsing SHOW/SYMBOL 
O1FS 1354 ; Inputs: 
Q1FS §=1355 ; | 
O1F5 1 2$ ; None. 
O1FS 1357 ; 
O1F5 1358 ; Outputs: | 
O1FS 1359 ; 
O1F5 1360 ; SYMBOL_NAME = 0 
O1F5 1361 ;--- 
O1FS 1 6¢ 
O1F5 130 CLEAR_SYMBOL_NAME : 
0000 O1FS 1364 wOR 
OOOOO000'EF 7C OIF? 1365 erro SYMBOL _NAME 
50 01 DO OI1FD 1366 MOVL #1,R0 
04 0200 1367 RET | 
| 
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Symbol table 


. XAMINE 300 R 
us sre EAS cxmesio Sn 
SSSFLG = BADD DDRD iE ae 00000480 ‘ | 
Ht = Pereeree EXAM"OK $3 sit R 
= EXAM_QUALS 
St ts = 00000398 R 05 EXAM QUAL _LOOP a9004e4 4 5 
ADDS. j 99000000 R 66 te COMMAND 50000506 R x 03 | 
hate eet Be sie” 
ats eee Be te SHE 
Arcee 0 FILE DESC ceesenen? roe | 
ie “iit 9 HE Se 
anit me. §p090380 ROG FORMAT_CMD O0000A2¢ R05 | 
tors Preeetas x 0 FORMAT OPTS QO000A40 R 3 
sot -ereeee one at Tee HELP. CAD 00000900 R.—s«éO | 
Ca abe 90000046 R03 HEX 000005BE Rs | 
cK EARS Sonos RCO FI 00000384 Rs | 
CLEAR_SYABOL_NAME 000001F : 06 Ft, Meets f 3 | 
TO o00001BC R06 INDEX 00000712 R.séO | 
COR eed TmP SODOIEE ROS INDIRECT 0000058A Rs | 
ane SoopoTED ROS INDIRECT. CMD 00000078 R—s«éO 
cOLLECT — itt INDIRECT COMMAND eeeeeene x 03 
const  Oopoosee 03 INPUT. BUFFER eeeeceee of 06 | 
CONSTANT 00059C R 03 INPUT TEN Hite Heb : 06 | 
COPY _CMD Q0000K1C R05 INPUTELE ereceers X06 | 
aR 00000502 R03 KEY_ATTR 00000058 ROB | 
SEC IAA Mattie 03 CBS iGNAL eeeceese x 68 | 
DECIMAL 00000584 R 05 assesses Xx 6 | 
DEF INE 09000982 R 0 LOCK 00000004 R 95 | 
DEF INE “SYM peceeeea eae COCK. OPTS OOOODDEA R08 | 
SE vICE Midas 0000 03 LOG FILE reekeene x 03 | 
pevic sit 4 844 4 03 MSG$_SUCCESS eeaneene x 06 
Stan elie Soonosde ROS uLT2 00000009 R06 | 
bad tesa x 03 MULTIPLICATION 00000544 R 03 
DISPLAY" DEVBYADDR cececese OS NEGI 00900035 R 06 | 
ty eceeceee . $3 eo A ET 00000220 R 03 
DISPLAY PEN seavesce gOS CTRL 0000586 R 05 | 
geeraene | 
I SPLAY-ept posevens Be SPEN-OUTPUT tenenere KX 03 | 
DISPLAY_ “SPT RANGE 9000022¢ . x FSRCALL “ O0000FFF | 
it can ae : Si 
woo 9000018 R 9 OPTSM~BAD = 99090004 
ele Bes HE ta : BSS 
Egpnoe RAS ectest 2 8 TSRBLB = 90008000 
Eva 0 39E R § OPTSM-BLBSUM = 00010000 
EVAL CON sia TSMC = 0000008 
EVAL CONTENTS itt OPTSM~CHAN = 000004 
iasor 000: H R OPT$M~ COND s Bh8 
EVAL BOF AE R OPTSM7ESP - 004 | 
Ear GUA 8 R OPTSM-FAB = 8 8358 
EVALTSETUP 00 Oc8 R 6 OPTSM_FC ® BADR Sbt 
EVAL” _ SYMBOL 0000062 R 6 OPTSM— FREE 
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oP 
OPTSM~MODIF IED 
OPTSM~NAM 


OPTSM~NO 
OPTSM~NONPAGED 
OPTSM~NOSKIP 


OPTSM~SELF 
OPTSM~SINGLEPFN 
OPTSM~SRP 
OPTSM~SSP 
OPTSM~ SUMMARY 
OPTSM~SYSPROC 
OPTSM~SYSTEM 

oP BE 


000 
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OPTIONS 


GE. 
PAGE ~ RANGE 
PAGE- TABLE 
PARERS 
PDT_BYADDR 
PFN_DATA 
PFN_OPTION 
PFN_OPTS 
PIX-WIDTH 
POoc 
POOL _RANGE 
PREV_BUFFER 
PRINT_HEADER 
PRINT STACKS 
PROCESS 
PROCESS1 
PROCESS SUMMARY 
proc INDEX 


REQMEM” 


NCSERIOHE SUBGSO] SMORCinag OGM 


ReeTeeAe 
RARERAREE 


eteneeese 
000072E 
00007C0 
0000000 
00000050 


REREKEEE 
ReAAREEE 
Reeeeeee 


QOOO05DA 
QOO005EE 


Reeekene 
RReeeeee 
Reeeeeee 


teereeee 
eeereees 
00000117 
teeetene 
eeteenes 


00000102 
Q00006EC 


eeeaeeee 
geereene 
geeaeeee 
geereert 
eeeaeeeee 


00000003 


geaekeeee 
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. SRCJPARSE .MAR; 1 (12) | 

SET_PROCESS ketenes =X ; TPAS_FAIL = 

SET_RMS 0 8 § 4 TPAS_FILESPEC = 

SHIFT2 0 § 8 TPAS_HEX = 

SHOW 00000 TPA$_ IDENT 2 

SHOW_ALL_LOCKS aeeeeeee =X TPAS_KEYWORD = 

SHOW-ALL "RES eeeeeeee =X TPAS_LAMBDA = 

SHOW-CLUSTER eeeeenee = X TPAS_MAXKEY = 

SHOW” CONNECTIONS eeeeneee =X TPAS_OCTAL = 

SHOW_EXPR eeeeeeee = X TPAS_ST s 

SHOW" ONE _LOCK teeeeeee = X TPA$_SUBX = 

SHOW" ONE eeeeeeee =X TPAS_SY 2 

SHOW” POOL aeeeeeee = x TPAS_UI = 

SHOW_ POOL RANGE eeeeenee =X VALIBAT 03 
SHOW" PORTS eeeeeeee = x VALIDAT 03 
SHOW" PROCESS eeeeeeee =X 0 VALIDATE-Q_0 03 
SHOW_RMS 0000012C R 03 VAL_QUEUE ~ 03 
SHOW"RMS_OPT teeeeeee =X 03 VAL_QUEUE_OPTS 3 
SHOW_RSPTD eeeeeeee =X H VAL “QUE _ 3 
SHOW-SCS eeeeeeee = X 0 L-SET-M 03 
SHOW. SUMMARY 00000942 R 03 VAKCLUSTER 03 
SHOW” SYMBOL teeeeeee =X 03 

SMGSADD_KEY_ DEF teeeenee =X 06 

SMGSDEFINE_REY eeeeereer = X 06 

en, KEY S PERMINATE = 00000002 

NARF OOOOOIFA R 03 

STACK sa 'ed4 tg R 03 

STACK_RANGE QOO008SE R 03 

START 00000000 R 03 

TORE 00000050 R 06 
STORE_IF1_TMP QOOOOIAE R 06 
STORE PROC_ INDEX QOOOOOBF R 06 
STORE RELOCATION 00000084 R 06 
STORE_STAR 000001D4 R 06 
STORE-~TMP1_OPT 00000169 R 06 

STRUCTURE eeeeeere =X 03 
SUB2 00000012 R 06 
SUBTRACTION 0000051A R 03 
SYM 00000976 R 03 
SYMBOL 0000095A R 3 

SYMBOL _DESC teeeeeee =X 3 

SYMBOL — NAME tereeeee =X 3 

SY OPTS 00000982 R b3 

SYMBOL _QUALS 00000960 R 0 

SYMBOL _ VALUE eeteeeee =X 06 

SYSREG OQOO0SCA R 

< 0000524 R 03 


mM Hmm ——OoO— 
MNFAMOMOOOM 


TPAS_EXIT 


K 2 
PARSE Parse tables for SDA commands 16-SEP-1984 36:01 AX/VM 
Psect synopsis sett 7 83: 39:3 


! Psect synopsis ! 


éussesaee eeseeoea + 


aed ocation oO. ttributes 
PSECT Allocati PSECT N Attrib 
ABS 4444 44 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 
S$ 0 43 ( g.} 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE 
ADAT Q000005C ¢ 92.) ¢ ( §°} NOPIC USR CON REL LCL NOSHR NOEXE 
-LIBSSTATES 000 gAE ( 2654.) ( 3.) PIC USR CON REL LCL SHR EXE 
-LIBSKEYOS 44 9B ( gf -)> QO4¢ 4.) PIC USR CON REL LCL SHR_ EXE 
LIBSKEY1$ QOO039E ¢ 926.) 05 ¢ 5.) PIC USR CON REL LCL SHR_~ EXE 
RSE 00000201 ¢ 513.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR- EXE 


+ 
! Per ternence indicators ! 


PTA ta slleeapattee tod Roe Oe ee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.97 00:00:02.56 
Command processing 1 00:00:00.50 00:00:09.59 
Pass 1216 4b IE EEE 00:04:07.53 
Symbol table sort 0 00:00:00.61 B30: 06-08 

Pass 2 260 B88 06' ty 0:00: 243 
Symbol table output 7 Hes SP 00:00:00.3 

Psect synopsis output 00:00:00.04 00:00:00.39 
Cross-reference output 90: 89:09 +90 00:00:00.00 
Assembler run totals 1684 00:01:21.32 00:05:16.22 


The working set Limit was 3000 pages. 

519055 bytes (1014 pages) of virtual memory were used to buffer the intermediate code. 

i? re were 30 pages of symbol table space at tected to hold 596 non-local and 3 Local symbols. 
1370 source Lines were read in Pass 1, "see Be object records in Pass 2 

32 pages of virtual memory were used to define 26 macros. 


Macro Library name Macros defined 
$255$DUA s SoA .081 1508 18,8 -MLB;1 4 
$255$DUA 31 0 
$538$DUA98 tPSYSLIGISIARLET. MLB; 2 10 

TerAce (all Libraries) 14 


753 GETS were required to define 14 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:PARSE/OBJ=OBJ$:PARSE MSRC$:PARSE/UPDATE=(ENHS: PARSE) +EXECML$/LIB+LIB$:SDALIB/LIB 


S Macr eV 
SDA.SRCIJPARSE. 


NORD 
R 


04-00 
E.MAR; 1 


NOVEC 


NOVEC 


0352 AH-BT13A-SE ~ DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONF IDENTIAL_AND PROPRIETARY 


2 SH me # 


AL EQUIPMENT CORPORA 


0 
DENTIAL AND PROPRIE Y 


